library ieee;
use ieee.std_logic_1164.all;
use ieee.numeric_std.all;

entity strobe_gen is
	port (
		rst : in std_logic;
		clk : in std_logic;
		strobes : out std_logic;
		deltat_const : out std_logic_vector(63 downto 0)
	);
end;

architecture behavioural of strobe_gen is
	signal timer : natural range 0 to 10000;
begin
	process(rst, clk)
	begin
		if rst = '1' then
			timer <= 0;
		elsif rising_edge(clk) then
			strobes <= '0';
			if timer >= 10000 then
				strobes <= '1';
				timer <= 0;
			else
				timer <= timer + 1;
			end if;
		end if;
	end process;
	
	deltat_const <= std_logic_vector(to_unsigned(10, deltat_const'length));
end architecture;
		